Public Class CProductList
    Private _lngItemID As Long
    Private _seqItemID As String
    Private _strName As String
    Private _strCompany As String


    Public Property ItemID() As Long
        Get
            Return _lngItemID
        End Get
        Set(ByVal value As Long)
            _lngItemID = value
        End Set
    End Property

    Public Property SeqItemID() As String
        Get
            Return _seqItemID
        End Get
        Set(ByVal value As String)
            _seqItemID = value
        End Set
    End Property

    Public Property ItemName() As String
        Get
            Return _strName
        End Get
        Set(ByVal value As String)
            _strName = value
        End Set
    End Property

    Public Property Company() As String
        Get
            Return _strCompany
        End Get
        Set(ByVal value As String)
            _strCompany = value
        End Set
    End Property

End Class
